To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
To resolve this problem, change the code in the "Order Factura-Invoice (A)" report (12411) as follows:
...
UNTIL ReservEntry.NEXT = 0;
END;
END;
// Delete the following lines.
END;
END;
// End of the lines.
IF TrackedQty <> SalesLine1."Qty. to Ship (Base)" THEN
ERROR(Text006,
TrackingSpecBuffer2.FIELDCAPTION("CD No."),
SalesLine1."Qty. to Ship (Base)" - TrackedQty,
TrackingSpecBuffer2."Item No.",SalesLine1."Line No.");
TrackingSpecBuffer2.RESET;
TrackingSpecCount := TrackingSpecBuffer2.COUNT;
CASE TrackingSpecCount OF
1:
BEGIN
TrackingSpecBuffer2.FINDFIRST;
CDNo := TrackingSpecBuffer2."CD No.";
IF CDNoInfo.GET(
CDNoInfo.Type::Item,TrackingSpecBuffer2."Item No.",
TrackingSpecBuffer2."Variant Code",TrackingSpecBuffer2."CD No.")
THEN
CountryName := CDNoInfo.GetCountryName;
END;
ELSE
MultipleCD := TRUE;
END;
END;
SalesLine1.Type::"Fixed Asset":
...
...
UNTIL ReservEntry.NEXT = 0;
END;
END;
IF TrackedQty <> SalesLine1."Qty. to Ship (Base)" THEN
ERROR(Text006,
TrackingSpecBuffer2.FIELDCAPTION("CD No."),
SalesLine1."Qty. to Ship (Base)" - TrackedQty,
TrackingSpecBuffer2."Item No.",SalesLine1."Line No.");
TrackingSpecBuffer2.RESET;
TrackingSpecCount := TrackingSpecBuffer2.COUNT;
CASE TrackingSpecCount OF
1:
BEGIN
TrackingSpecBuffer2.FINDFIRST;
CDNo := TrackingSpecBuffer2."CD No.";
IF CDNoInfo.GET(
CDNoInfo.Type::Item,TrackingSpecBuffer2."Item No.",
TrackingSpecBuffer2."Variant Code",TrackingSpecBuffer2."CD No.")
THEN
CountryName := CDNoInfo.GetCountryName;
END;
ELSE
MultipleCD := TRUE;
END;
END;
// Add the following lines.
END;
END;
// End of the lines.
SalesLine1.Type::"Fixed Asset":
...